home *** CD-ROM | disk | FTP | other *** search
/ Aminet 38 / Aminet 38 (2000)(Schatztruhe)[!][Aug 2000].iso / Aminet / docs / help / arexxbegin.lha / ARexx_For_Beginners / Articles_11-20 / Example13-1.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-04-10  |  433 b   |  19 lines
  1. /* Example13-1.rexx */
  2.  
  3. SAY 'Testing Logical Operators' ; SAY
  4.  
  5. SAY 'X  Y  X=2 & Y=2  X=2 | Y=2  X=2 ^ y=2'
  6. SAY '-  -  ---------  ---------  ---------'
  7.  
  8. DO x = 1 to 3
  9.    DO y = 1 to 2
  10.       IF x = 2 & Y = 2 THEN T1 = 'True '
  11.       ELSE T1 = 'False'
  12.       IF x = 2 | Y = 2 THEN T2 = 'True '
  13.       ELSE T2 = 'False'
  14.       IF x = 2 ^ Y = 2 THEN T3 = 'True '
  15.       ELSE T3 = 'False'
  16.       SAY x '' y ' ' T1 '    ' T2 '    ' T3
  17.    END
  18. END
  19.